home *** CD-ROM | disk | FTP | other *** search
/ Softwarová Záchrana 3 / Softwarova-zachrana-3.bin / Xteq X-Setup / xqdcXSP-Setup-EN.exe / {app} / plugins / XQ Desktop Icon Size 2.xpl < prev    next >
Text File  |  2002-04-24  |  4KB  |  113 lines
  1. "FILE"="Xteq Systems X-Setup Plugin 6.0"
  2. "TYPE"="9"
  3. "COUNT"="4"
  4. "UIPATH"="Appearance\Interface\Icons"
  5. "NAME"="Icon Size: Small"
  6. "VERSION"="2.00"
  7. "LANGUAGE"="VBScript"
  8. "TEXT 1"="Use Windows Default"
  9. "TEXT 2"="Display 16x16 pixel icons"
  10. "TEXT 3"="Display 32x32 pixel icons"
  11. "TEXT 4"="Display 48x48 pixel icons"
  12. "DESCRIPTION 1"="Use this option to specify the size for the icons in a small view (for example, the "Details" view of Windows Explorer). Please select only one item."
  13. "DESCRIPTION 2"="Please note that this setting will also affect the icons inside the tray area."
  14. "AUTHOR"="Xteq Systems"
  15. "CONTACTURL"="http://www.xteq.com/"
  16. "COPYRIGHT"="Copyright ⌐ Xteq Systems - All Rights Reserved"
  17. "COMMENT 1"="Setting found by Eugene Thrashevoy [EugeNet@Pisem.Net] - thanks!"
  18. "COMMENT 2"="see also: http://www.jsifaq.com/SUBA/tip0400/rh0497.htm"
  19.  
  20. iCount=18
  21. sV="HKCU\Control Panel\Desktop\WindowMetrics\Shell Small Icon Size"
  22.  
  23. Sub Plugin_Initialize 
  24.   Call SetUIElement(1," Use Windows Default ")
  25.   Call SetUIElement(2,"Display 16x16 pixel icons")
  26.   Call SetUIElement(3,"Display 18x18 pixel icons")
  27.   Call SetUIElement(4,"Display 20x20 pixel icons")
  28.   Call SetUIElement(5,"Display 22x22 pixel icons")
  29.   Call SetUIElement(6,"Display 24x24 pixel icons")
  30.   Call SetUIElement(7,"Display 26x26 pixel icons")
  31.   Call SetUIElement(8,"Display 28x28 pixel icons")
  32.   Call SetUIElement(9,"Display 30x30 pixel icons")
  33.  Call SetUIElement(10,"Display 32x32 pixel icons")
  34.  Call SetUIElement(11,"Display 34x34 pixel icons")
  35.  Call SetUIElement(12,"Display 36x36 pixel icons")
  36.  Call SetUIElement(13,"Display 38x38 pixel icons")
  37.  Call SetUIElement(14,"Display 40x40 pixel icons")
  38.  Call SetUIElement(15,"Display 42x42 pixel icons")
  39.  Call SetUIElement(16,"Display 44x44 pixel icons")
  40.  Call SetUIElement(17,"Display 46x46 pixel icons")
  41.  Call SetUIElement(18,"Display 48x48 pixel icons")
  42.  
  43.  i=RegReadValue(sV)
  44.  
  45.  if IsEmpty(i) then SetUIElementEx 1,true
  46.  
  47.  if IsNumeric(i) then
  48.     if i=16 then Call SetUiElementEx(2,true)
  49.     if i=18 then Call SetUiElementEx(3,true)
  50.     if i=20 then Call SetUiElementEx(4,true)
  51.     if i=22 then Call SetUiElementEx(5,true)
  52.     if i=24 then Call SetUiElementEx(6,true)
  53.     if i=26 then Call SetUiElementEx(7,true)
  54.     if i=28 then Call SetUiElementEx(8,true)
  55.     if i=30 then Call SetUiElementEx(9,true)
  56.     if i=32 then Call SetUiElementEx(10,true)
  57.     if i=34 then Call SetUiElementEx(11,true)
  58.     if i=36 then Call SetUiElementEx(12,true)
  59.     if i=38 then Call SetUiElementEx(13,true)
  60.     if i=40 then Call SetUiElementEx(14,true)
  61.     if i=42 then Call SetUiElementEx(15,true)
  62.     if i=44 then Call SetUiElementEx(16,true)
  63.     if i=46 then Call SetUiElementEx(17,true)
  64.     if i=48 then Call SetUiElementEx(18,true)
  65.  end if
  66.  
  67. End Sub
  68.  
  69. Sub Plugin_Apply(ElementIndex,ElementSubIndex)
  70.  e=0
  71.  
  72.  for i=1 to iCount
  73.      if GetUIElementEx(i)=true then e=e+1
  74.  next
  75.  
  76.  if e>1 then 
  77.     Call MsgError("Please select only one item!")
  78.  else
  79.    i=empty
  80.    if GetUIElementEx(1)=true then i=0
  81.    if GetUIElementEx(2)=true then i=16
  82.    if GetUIElementEx(3)=true then i=18
  83.    if GetUIElementEx(4)=true then i=20
  84.    if GetUIElementEx(5)=true then i=22
  85.    if GetUIElementEx(6)=true then i=24
  86.    if GetUIElementEx(7)=true then i=26
  87.    if GetUIElementEx(8)=true then i=28
  88.    if GetUIElementEx(9)=true then i=30
  89.    if GetUIElementEx(10)=true then i=32
  90.    if GetUIElementEx(11)=true then i=34
  91.    if GetUIElementEx(12)=true then i=36
  92.    if GetUIElementEx(13)=true then i=38
  93.    if GetUIElementEx(14)=true then i=40
  94.    if GetUIElementEx(15)=true then i=42
  95.    if GetUIElementEx(16)=true then i=44
  96.    if GetUIElementEx(17)=true then i=46
  97.    if GetUIElementEx(18)=true then i=48
  98.  
  99.    if i>0 then
  100.       Call RegWriteValue(sV,i,1)
  101.       Call Logoff()
  102.    else
  103.       if RegValueExists(sV) then
  104.          Call RegDeleteValue(sV)
  105.       end if
  106.    end if
  107.  end if
  108.  
  109. End Sub
  110.  
  111. Sub Plugin_Terminate 
  112. End Sub
  113.